<%@ LANGUAGE="JavaScript" %> <% //--- variables var method; var forminput = new ActiveXObject("Scripting.Dictionary"); var strBackArgs = "", strBackUrl = ""; if ( -1 == CheckReferer() ) { SendMFormErrorPage( "このページは直接の参照はできません。", "トップページにお戻りください。", HTTP_MRD_MISAWA_HOME, "_top"); Response.End; } // リファラー取得 strBackUrl = Request.ServerVariables("HTTP_REFERER"); //--- POSTの場合 if ( ( method = MethPost() ) ) { forminput = Request.Form; //--- POST以外（GETのはず）の場合 } else { forminput = Request.QueryString; } if ( forminput.Key("REFURL") ) { if ( "" != forminput.Item("REFURL") ) { strBackUrl = unescape(forminput.Item("REFURL")); } } strBackArgs = strBackUrl; //----- 提携店番号が指定されていない場合 if ( ! forminput.Key(KEY_TEIKEINO) ) { SendMFormErrorPage( "相手先提携店が指定されていません。", "前のページにお戻りください。", strBackArgs, ""); Response.End; } var ora803; var cmdTeikei, dtTeikei; var strSerchTeikei = ""; ora803 = Server.CreateObject("ADODB.Connection"); cmdTeikei = Server.CreateObject("ADODB.Command"); // 提携店情報抽出用 dtTeikei = Server.CreateObject("ADODB.Recordset"); strSerchTeikei = ""; //--DB統一 提携店View変更 strSerchTeikei = 'select 提携店.* from 提携店View 提携店'; strSerchTeikei += ' where 提携店.提携店番号=\'' + forminput.Item(KEY_TEIKEINO) + '\''; if ( DBConnect( ora803, 30, 15 ) ) { SendMFormErrorPage( "ただいま、大変混雑しております。", "申し訳ございませんが、しばらくしてからご利用ください。", HTTP_MRD_MISAWA_HOME, "_top"); Response.End; } if ( DBCommand( ora803, cmdTeikei, adCmdText, strSerchTeikei, False ) ) { ora803.Close(); SendMFormErrorPage( "ただいま、大変混雑しております。", "申し訳ございませんが、しばらくしてからご利用ください。", HTTP_MRD_MISAWA_HOME, "_top"); Response.End; } if ( DBExecutePage( dtTeikei, cmdTeikei, adOpenStatic, adLockReadOnly, 1, 0) ) { ora803.Close(); SendMFormErrorPage( "ただいま、大変混雑しております。", "申し訳ございませんが、しばらくしてからご利用ください。", HTTP_MRD_MISAWA_HOME, "_top"); Response.End; } if ( dtTeikei.RecordCount <= 0 ) { ora803.Close(); SendMFormErrorPage( "申し訳ございません。","お問合せ先の情報は登録されておりません。", strBackArgs, ""); Response.End; } var inputFromName = ""; var inputFromAddr = ""; var inputMailSubject= ""; var inputMailContents = ""; if ( forminput.Key(KEY_FROMNAME) ) inputFromName = forminput.Item(KEY_FROMNAME); if ( forminput.Key(KEY_FROMADDR) ) inputFromAddr = forminput.Item(KEY_FROMADDR); if ( forminput.Key(KEY_MAILSUBJECT) ) inputMailSubject = forminput.Item(KEY_MAILSUBJECT); if ( forminput.Key(KEY_MAILCONTENTS) ) inputMailContents = forminput.Item(KEY_MAILCONTENTS); %> ＭＩＳＡＷＡ−ＭＲＤ全国不動産情報
">
"> ">
下記の「個人情報の取り扱いについて」をご確認の上、
お問い合わせ内容を書き込んで送信ボタンをクリックして下さい。
氏　　名 e-mail
都道府県 性　　別 男性 女性 年　　齢 才
住　　所
内　　容
<% // footer(); %> <% if (Request.QueryString("KMD") == "kaiin") {%> <% }else{ %> <% } %> <% ora803.Close(); Response.End; //----- メール送信ページエラー表示用関数 function SendMFormErrorPage( errMessage, errContents, backLink, winTarget ) { %> ＭＩＳＡＷＡ−ＭＲＤ全国不動産情報
● <%= errMessage %>
<%= errContents %>
<% if ( "" != backLink ) { %>
　
<% } // footer(); %> <% if (Request.QueryString("KMD") == "kaiin") {%> <% }else{ %> <% } %>
<% } %>